home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / font changer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  2.1 KB  |  61 lines
  1. 1 ifpeek(787)<>1thensys57812"fnt",8,0:poke780,0:poke781,0:poke782,56:sys65493
  2. 2 poke787,1:ifch=1thenpoke53272,31:goto29
  3. 3 poke53281,0::poke53280,11:print"[147][158]":poke55,0:poke56,56:clr
  4. 4 f1$="[204][207][193][196][211][212][193] [210]":f2$="[208] [210] [197] [211] [197] [206] [212] [211]":f3$="[194][217]":f4$="[202][197][198][198][210][197][217] [204]. [202][207][206][197][211]"
  5. 5 s=54272:fori=0to24:pokes+l,0:next
  6. 6 pokes+1,100:pokes+5,9:pokes+24,15
  7. 8 c(1)=15:c(2)=12:c(3)=11:f$="   [198][160][207][160][206][160][212][160][160][160][195][160][200][160][193][160][206][160][199][160][197] [210]":mu=1
  8. 9 c(7)=11:c(6)=12:c(5)=15:c(4)=12:fori=1to7:readfo$(i):fo$(i)=fo$(i)+" [198][207][206][212]"
  9. 10 next:readfo$(8),fo$(9):i=0
  10. 11 goto25
  11. 12 poke646,6:print""spc(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 13 forc=1to5:printspc(5)"[221]                             [221]":next
  13. 14 printspc(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub15:return
  14. 15 poke198,0:poke214,6:print:print:forc=1to9:poke646,14:ifmu=cthenpoke646,7
  15. 16 printtab(13)fo$(c):next:mu=9:c=6:gosub47:mu=1
  16. 17 poke214,18:print:print"   [158] [213][211][197] [195][213][210][211][207][210]/[210][197][212][213][210][206] [212][207][160][211][197][204][197][195][212] [198][207][206][212] "
  17. 18 print"    [155]abcdefghijklmnopqrstuvwxyz   12345"
  18. 19 print"    [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]   67890[145]":return
  19. 20 poke646,c(i+2):print""spc(13)f1$
  20. 21 poke646,c(i+1):printspc(13)f2$
  21. 22 poke646,c(i):printspc(6)f$
  22. 23 poke646,c(i+1):printspc(19)f3$
  23. 24 poke646,c(i+2):printspc(12)f4$:return
  24. 25 gosub12:goto29
  25. 27 i=i+1:ifi=5theni=1
  26. 28 gosub20:return
  27. 29 geta$:gosub45:gosub27:ifa$=""then29
  28. 30 um=mu:ifa$="[145]"thenmu=mu-1:ifmu<1thenmu=9
  29. 31 ifa$=""thenmu=mu+1:ifmu>9thenmu=1
  30. 32 ifa$=chr$(13)then48
  31. 33 poke214,6+um:print:printtab(13)"[154]"fo$(um)
  32. 34 poke214,6+mu:print:printtab(13)"[158]"fo$(mu):goto29
  33. 35 i=1:gosub20
  34. 36 ifa$="q"then38
  35. 37 ch=1:loadfi$,8,1
  36. 38 fori=62464to62564:pokei,0:next
  37. 39 poke787,0:open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  38. 40 poke53272,21
  39. 41 if er<>63 then print"[147]":end
  40. 42 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  41. 43 print"[158]load"q$a$q$",8"
  42. 44 print"run":poke631,13:poke632,13:poke198,2:end
  43. 45 c=c+1:ifc>7thenc=1
  44. 46 poke646,c(c):poke214,6+mu:print:printtab(13)fo$(mu):return
  45. 47 poke214,9+mu:print:printtab(17)"[154]"fo$(mu):return
  46. 48 ifmu>7then53
  47. 49 ch=1:load"font"+str$(mu),8,1
  48. 50 data"[211][200][210][197][214][197][208][207][210][212]","[206][197][215] [207][210][204][197][193][206][211]","[193][204][197][216][193][206][196][210][201][193]","[204][193][198][193][217][197][212][212][197]"
  49. 51 data"[194][193][212][207][206][160][210][207][213][199][197]","[195][207][205][205][207][196][207][210][197]","[204][207][193][196][211][212][193][210]","[201][206][211][212][193][204][204][160][206][197][215][160][198][207][206][212]"
  50. 52 data"[210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]"
  51. 53 onmu-7goto54,38
  52. 54 poke214,20:print:foru=1to2:print"                                      ";
  53. 55 next:print"":fa$="fnt"
  54. 56 foru=1to4:poke214,20:print:printtab(8)"[155][201][206][211][197][210][212] [211][201][196][197]"u"of [204][207][193][196][211][212][193][210]"
  55. 57 printtab(6)"[193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][155]/ [158][209][155] [212][207][160][193][194][207][210][212]"
  56. 58 geta$:ifa$<>"q"anda$<>chr$(13)then58
  57. 59 ifa$="q"thenrun
  58. 60 fa$="fnt":close15:open15,8,15,"s0:fnt"
  59. 61 sys57812fa$,8:poke193,00:poke194,56:poke174,00:poke175,64:sys62954
  60. 62 pokes+4,37:fort=0to500:next:pokes+4,36:next:run
  61.